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APRIL 1971 



MEMORANDUM TO: 



SUBJECT: 



Users of S/360 Continuous System Modeling 

Program (360A-CX-16X) — 

V1M2 

•APAR Letters 



The following is the list of APAR letters that are currently 
active : 



PA- 366 
PA-192 
PA- 189 
PA-118 
PA- 11 7 
PA- 114 
PA-113 
PA-112 
PA- 111 
PA-09 3 
PA-066 



PA-052 
PA-0 46 
PA-0 42 
PA-015 
PA-012 
PA- 011 
PA-010 
PA-008 
APS-376 
APS-374 



International Business Machines Corporation 

MEMORANDUM TO: Users of the S/360 Continuous System Modeling Progra 

Type II 



n ) 1 \ 



Aupust 1969 



APAR. # 



SUBJECT: 



APS-374 



Programs 3o0A _ cx _ 16X 



{Program Name 

{ S/360 Continuous System Modeling Program 

A FORTRAN compile error in the first model will prevent subsc-iue-- 
models when stacking jobs. 



"TVt l-sicn I Mi idi lii-ation Level 

._L_l_i_J 



ts fc 



When the FORTRAN compiler was envoked by an ATTACH macro, in the DEJCSMP 2 
subroutine, the corresponding ECB was not reinitialized and hence the return code of the 
first compile was the only one ever received. Should the first FORTRAN compile be in 
error this would prevent all subsequent linkedits since all subsequent compile return codes 
would appear the same. To correct this error, insert the following card in the DEJCSMP2 
source deck between card numbers DEJ2 180 and DEJ2 190: 

XC ECBLOCK,ECBLOCK ZERO ECB DEJ2 185 

Follow the procedure described under "Modifying DEJCSMP2" in the CSMP Opeiators 
Manual to incorporate this change in the system. This progtam modification /.ill be in- 
corporated in a future modification level. 



201AP 



CC:SE Managers 



DP Application Program Standards 

APAR PROCESSING 
112 EaBt Past Road 
White Plains, NY. 10601 

20059 



APAR Letter 

International Business Machinei Corporation 



m 



MEMORANDUM TO: Users of the S/360 Continuous System Modeling Program 
Type II August 1969 



APAR. # 



SUBJECT: 



APS -376 



Program # 

360A-CX-16X 



{Program Name 

i S/360 Continuous System Modeling Program 



Version 
1 



Modification Level 
2 



International Business Machines Corporation 

MEMORANDUM TO: Users of S/360 Continuous System Modeling Program 7 

Type II 



lAPAR. # 



SUBJECTS 



PA-008 



Program # 



360A-CX-16X 



Program Name 
i ' S/360 Continuous System Modeling Program 



Version 

1 



M,odi fi cation. Level:. 
2 



Errors may result with models involving implicit loops. 



An end of data set on unit 13 may occur if a PROCEDURE block is used 
in a NOSORT section. 



U 



The User's Manual gives the following example of an implicit function: 

Z = IMPL(20,ERROR, FOFZ ) 
CI = A * EXP( - TIME ) 
FOFZ = C1 + B*SIN(Z) 

Program errors may result if intermediate variables defined within an implicit loop 
(such as CI above) are used outside the loop. 



Until program fix is found, avoid such usage. 

If a term available within a loop is required elsewhere, it should be recomputed outside 
the loop. Alternatively, for some models it may be possible to place the entire implicit 
loop within a multiple output procedure thusly: 

PROCEDURE CI, FOFZ = LOOP (ZO, ERROR, TIME ) 

Z = IMPL (ZO, ERROR, FOFZ ) 

CI = A * EXP ( - TIME ) 

FOFZ = C1 + B*SIN (Z) 

ENDPRO 

Note that this requires the user to properly sequence the statements within the loop. 




The S/360 CSMP PROCEDURE is specifically designed for use in 
parallel, .sorted sections. Use of a PROCEDURE within a NOSORT 
section is nonsensical modeling and will result in an abnormal exit. 
A new diagnostic will be added in a future version to detect this 
improper use without aborting the run. 



CC: SE Managers 



DP Application Program Standards 
APAR PROCESSING 
112 Eait Poit Road 
Whita Plains, NY. 10601 

20060 



CC: SE MANAGERS 



DP Application Program Standards 
APAR PROCESSING 
112 East Post Road 
White Plains, NY. 10601 

20020 



APAR Letter 



International Business Machines Corporation 

MEMORANDUM TOlUsers of S/360 Continuous System Modeling Program 

Type II 




APAR. # 



SUBJECTS 



PA-010 



Program # 



360A-CX-16X 



Program Name 
} S/360 Continuous System Modeling Program 



Version 
1 



Modification Level 
2 



Executing the load module of a previously-stored CSMP model may fail due to concatenation 
error in FT05F001 . 

In the "Execution Phase Load Module" section of the CSMP Operator's Manual ,(H20-0368), 
procedures are described in figures 11 and 12 to first save a CSMP load module and 
symbol table and then execute this saved CSMP model independently. This execution 
step may fail due to concatenating data sets with unlike attributes in FT05F001 (such 
concatenation is unsupported in FORTRAN. To avoid this failure, figure 12 should be 
changed as below to a three-step procedure, the first two steps of which are to effect 
the concatenation of the FORTRAN input file FT05F001 . Data sets FT13F001 and FT14F001 
have been changed to RECFM=VS to reflect OS release 18 requirement for FORTRAN un- 
formatted records. The BLKSIZE and LRECL has been adjusted for more efficient use 
of disk storage. These changes will be incorporated in a. later Technical Newsletter 
to the CSMP Operator's Manual. 



REVISED FIGURE 12 (CSMP Operator's Manual) 



//CSMPEXEC JOB 

//C0NCAT1 EXEC PGM=IEBGENER 

//SYSPRINT DD SYS0UT=A 

//SYSUT2 DD UNIT=SYSDA,SPACE=(TRK,(10,2)),DISP=(NEW,PASS) 

// DCB=(BLKSIZE=80,LRECL=80,RECFM=F) 

//SYSIN DD DUMMY 

//SYSUT1 DD UNIT=SYSDA,DISP=SHR,DSN=CSMP.SYMB. CABLE, 

// VOL=SER=CSMPDK 

//C0NCAT2 EXEC PGM=IEBGENER 

//SYSPRINT DD SYS0UT=A 

//SYSUT2 DD DSN=*.CONCATl.SYSUT2,DISP=(M0D,PASS) 

//SYSIN DD DUMMY 

y/SYSUTl DD * 

data and execution control cards 

STOP ■ ' ■ 

/* 

//GO EXEC PGM=DEJEXE,REGION=108K 

//FT05F001 DD DSN=*.C0NCAT1.SYSUT2,DISP=(0LD, DELETE) 

//FT06F001 DD SYS0UT=A 

//FT13F001 DD UNIT=SYSDA,SPACE=(TRK,(40,40)), 

// DCB=(RECFM=VS,LRECL=204,BLKSIZE=208) 

//FT14F001 DD UNIT=SYSDA,SPACE=(TRK, (40,40)), 

// DCB=(RECFM=VS,LRECL=204,BLKSIZE=208) 

//FT15F001 DD UNIT=(2400,, DEFER) ,DSN=PREPARE,DISP=(, PASS), 

//. LABEL=(,NL),VOL=SER=SCRTCH 

//STEPLIB DD DSN=CSMP. CABLE, DISP=SHR,UNIT=SYSDA, 

// V0L=SER=CSMPDK 



CC: SE Managers 



DP Application Program Standards 
APAR PROCESSING 
112 East Post Road 
White PlainB, NY. 10601 



20021 



International Business Machines Corporation 

MEMORANDUM T0: Users of S/360 Continuous System Modeling Prograi 

Type II 



'APAR. # 



SUBJECT: 



PA-011 



Program # 

360A-CX-16X 



MI 



• [Program Name 
j S/360 Continuous System Modeling Program 



Version 
1 



Modification Level 
2 



International Business Machines Corporation 

MEMORANDUM TO: Users of S/360 Continuous System Modeling Program 

Type II 



mm 



SUBJECT: 



"APAR. * 

PA- 01 2 



Program n 

360A-CX-16X 



it. 



Program Name 



iS/360 Continuous System Modeling Prugram 



Version 
1 



Modification Level 
2 



S/360 CSMP translator may ABEND with a OC5 code in processing INTGR L 
statements that are continued on several cards. 



5V5^^ 2-o-o \l^7-7l 



g Real variable arrays may be improperly processed if the array name 

— begins with I, J, . . . , N 



The packing operation for continuation cards may interfere with the INTGST 
subroutine operation if a number or variable name falls across a FORTRAN 
boundary (every 66 characters). To eliminate this possibility the packing 
subroutine BUILD should be modified using the Optional Distribution procedures 
described in the CSMP Operators Manual. The Figure 3 control cards require 
the following input cards: 



./ CHANGE LIST=ALL,SEQFLD=783,NAME = BUILD 
1110 IF ( MOD ( NP, 6 ) .NE. ) L = L - 1 

IF ( L .EQ. ) GO TO 1130 

L = L + L + KK- 1 



BUIL 440 
BUIL 442 
BUIL 444 



. / ENDUP 
The translator module must be link edited to include the modified BUILD. 

DP Application Program Standards 

APAR PROCESSING 
112 East Past Road 
White Plains, NY. 1QB01 



CC: SE MANAGERS 



V1M2 of S/360 CSMP may fail to specify a variable array as REAL if the 
array name begins with I, J. , K, L, M, or N. To circumvent this 
possibility array names for real subscripted variables should not start 
with these letters. This restriction will be eliminated in a future version. 



CC: SE MANAGERS 



DP Application Program Standards 

APAR PROCESSING 
112 East Post Road 
White Plains, N.Y. 10601 



20022 



20023 



International Business Machines Corporation 

MEMORANDUM TO: Users of S/3oi> Continuous System Modeling Program 

Type II 




'A PAR. 



SUBJECT: 



PA-015 



Program *> 

360A-CX-16X 



Program Name 

S/3ofl Continuous System Modeling Program 



Version 

1 



Modification Level 
2 



Use of a negative numeric constant or a symbolic name preceeded by a negative sign 
as an argument of a MACRO invocation may result in an OC4 abnormal exit. 



International Business Machines Corporation J L J n^ J fwl L 

MEMORANDUM TO: Users of S/360 Continuous System Modeling Program 

Type II 



APAR.* 



SUBJECT: 



PA-052 



Program # 

360A-CX-16X 



•[Program Name 

1 S/360 Continuous System Modeling Program 



Version 
1 



Modification Level 



Non-unique output names within a SORT section are not diagnosed and an incorrect 

UPDATE may be created. 



9M*t 2o-o n-?-^ 1 



SiSPAlC z*:& (2^7.7 



A program error in subroutine MMACST will result in incorrect processing and may 
cause an abnormal exit if either a negative constant or a symbolic name preceded by 
a negative sign is used as other than the last argument of a MACRO. The procedure 
described on page 3 of the S/350 CSMP Operator's Manual (H20-0368-2) should be 
used to correct the error. The following cards are to be run as input data to the • 
Figure 3 control cards: 



. / CHANGE LIST ^ ALL, SKQFLD - 

DIMENSION nvOHK(U) 
1910 IF ( I\V T Y P E - 2 ) 1 9 5 , 1 9 1 2 , 1 9 2 

1912 IF (INO- 1 1) 1 9 1 3, 1 9 1 5, 1 9 1 3 

1913 IF (INO-7)1950, 1015, 19 50 
19 15 KLAST = 2 

GO TO 19 5 
. / ENDUP 



7 7 4, NAME 



= MMACST 

M M A C 13 <i — 
MMAC2390 
MMAC2392 
MMAC2 3 9 3 
M M A C 2 3 9 5 
M M A C 2 3 9 6 



The pTogram fails to recognize a non-unique name situation in a section to be sorted 
and as a result subroutine UPDATE may have misplaced statements. Subroutines 
STRUST and MMACST may be modified to correct this situation by using the procedure 
described on page 3 of the S/360 CSMP Operator's Manual H20-0368-2. The following 
cards are to be run as input data to the Figure 3 control cards: 



./ CHANGE LIST = ALL, SEQFLD = 
1050 NTOUTI = ISORT(NSORT)/1000 
CHANGE LIST = ALL, SEQFLD 
1320 NTOUTI = ISOR T(NSOR T) / 1 000 
. / ENDUP 



7 7 4, NAME = MMACST 

M MAC 320 
= 774, NAME = STRUST 
S TR U K 5 



The MMACST and STRUST subroutines must be recompiled and the translation module 
recreated. 



FORTRAN H Option 1 should be used to compile the subroutine. The Translation 
module must be relink-edited using the first step of Figure 6 with the data set marked 
as "OLD". 



DP Application Program Standards 

APAR PROCESSING 
112 East Post Road 
White Plains, NY. 10B01 



DP Application Program Standards 

APAR PROCESSING 
112 East Post Road 
White Plains, NY. 10B01 



■20182 



;018:j 



APAR Letter 

International Business Machines Corporation J [ J °< 

MEMORANDUM TO: Users of S/3 60 Continuous System Modeling Program 

Type II 



SUBJECT: 



|APAR.# 

! PA- 09 3 



Program # 

360A-CX-16X 



J Program Name 

J S/360 Continuous System Modeling Program 



Version 
1 



Modification Level 
2 , 



A program error in the IMPL function may cause convergence to an incorrect IMPL 
output value. 



^y^f/YlC 1X>.0 1 2.-7-7/ 



MEMORANDUM TO: 



Users of S/360 Continuous Modeling 
Program (360A-CX- 16X) 



SUBJECT: 



APAR # PA - 192 Program # 360A-CX-16X 
Program Name: S/360 Continuous System Modeling 

Program 
Version 1 Modification Level 2 



Procedures described in the S/360 CSMP Operator's Manual should be used to 
correct this error. The symbolic update shown in Figure 3 is used as follows: 
A) Control cards Fig3 10 through Fig3 70 followed by these change cards. 



./ CHANGE NAME-IMPL,SEQFLD=783 
C 

C(K)=FUNCT 
1060 A=(FUNCT-XNP1)/(C(K)-C(K+1)) 

C(K)=Q*C(K)+(1 . 0-Q)*FUNCT 

XNP1=FUNCT 
/* 



IMPL 90. 
IMPL 240 
IMPL 290 
IMPL 420 
IMPL 595 



B) Compilation is performed using the procedure shown in Figure 4A, with the 
membername IMPL instead of STATUS on cards Fig4A 70 and Fig4A 90. 

C) The linkage edit is performed using part of the procedure shown in Figure 6. 
The cards Fig6 110 through Fig6 180 are used, followed by 

//SYSLIN DD * 

INCLUDE OBJLIB(IMPL) 
NAME IMPL(R) 



/' 



DP Application Program Standards 

APAH PROCESSING 
112 Eait Post Road 
Whita Plaint, NY. 1Q|01 

20237 



Continuation cards for logical IF statements may be incorrectly translated. 



;jy^/5< XO.O /2.~7 -7/ 



, If a logical expression (characters within IF parenthesis) is split across 
two cards the translator may not include the statement in the UPDATE 
subroutine. The translator may be corrected by using the Optional Distri- 
bution. Procedures. with the following change statements. 



/ 



CHANGE SEQFLD= 774, NAME =STRUST 

GO TO 2190 

IF(IWTYPE.NE. 2)GO TO 1176 

JGO=3 

IF(LLPRO.EQ. 3)GO TO 1300 

NTOUT=NTOUT+l 

TOUT(NTOUT)=WORDI(l) 

GO TO 1170 

CHANGE SEQFLD=774, NAME=SCAN 

IF(LLALPH.EQ.2)GO TO 15u(i 
• ENDUP 

Subroutihes.CS AN and STRUST must be compiled before relink-editing the 
translator. 



22<?j0 



.7' 
1476 
-./■ 



STRU2398 
STRU2478 
STRU2480 
STRU249(^ 
STRU2492 
STRU2494 
STRU2496 

SCAN1420 



20552 



DECEMBER 1970 



MEMORANDUM TO: 



SUBJECT: 



Users of S/36jf> Continuous Modeling 
Program (360A-CX- 16X) 

APAR # PA - 111 Program # 366A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



The statement number is removed on statements with the INTGRL 
block as part of an expression. 



$i$PAlL %o.D \\,-~]-l \ 



The V1M2 system may be modified by the Optional Distribution procedures 
in the CSMP Operator's Manual to correct this program error. The follow- 
ing input to the UPDTE utility (Figure 3 control cards) will modify sub- 
routine INTGST so that statement numbers on procedural statements using 
the INTGRL block are retained. 

./ CHANGE SEQFLD=774,NAME=INTGST 

C INTG2520 

. / ENDUP 

Subroutine INTGST must be compiled (Figure 4) and the TRANSLATOR 
relink edited (Figure 6) 



DECEMBER 1970 
MEMORANDUM TO: 

SUBJECT: 



Users of S/360 Continuous Modeling 
Program (360A-CX- 16X) 



APAR # PA - 112 Program # 360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 ' 



Internal output variables in macro definitions assigned only by logical IF 
statements will not have unique names. 



SiSPQiC lo.o d-7-7 ' 



The V1M2 system may be modified by the Optional Distribution procedures 
in the CSMP Operator's Manual to correct this error. The following input 
to the UPDTE utility (Figure 3 control cards) will modify subroutine RMACST 
to correct this situation. 

./ CHANGE SEQFLD = 774,NAME=RMACST 

IF(KLV)1432, 1440, 1540 RMAC1090 

1432 IF(INO-12)1434, 1550, 1150 RMAC1/092 

1434 IF(IWTYPE.NE.2,OR.INO.NE.9)GO TO 1430 RMAC1094 

GO TO 1490 RMAC1096 
1450 IF(INO.NE.6.DR.CWORD.NE.CBCD(285) )GO TO 1455 RMAC1120 

KLV=-1 RMAC1122 

GO TO 1430 RMAC1124 

1455 IF(INO.LT. 12)GO TO 1470 RMAC1130 
. / ENDUP 

Subroutine RMACST must be compiled (Figure 4) and the translator relink 
edited (Figure 6). 



20791 



20792 



DECEMBER 1970 



MEMORANDUM TO: 



Users of S/360 Continuous Modeling 
Program (360A-CX-16X) 



SUBJECT: 



APAR # PA - 113 Program '# 360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



Record 2 of a PREPARE data set file is format A8, 314. 
contains arbitrary information if no integration is used. 



The first word 



The Systems Manual incorrectly states that the format of Record 2 of a 
PREPARE file is A8, 3A4. This record is actually created as A8, 314. 
Also if no integration is used the first word of this record will contain 
arbitrary information. To have the system place blanks in that word so 
that this condition may be tested for the following input to the UPDTE 
utility (Figure 3 control cards) may be used. 

. / CHANGE SEQFLD=774, NAME=SIMOUT 

REAL*8 BEGIN, XMETH, DBLANK/' 7 SIMO 50 

XMETH=DBLANK SIM02322 

IF(INTYPE.LT. 10)XMETH=TYPINT(INTYPE) SIM02324 

WRITE(15,2050)XMETH,KTITLE,NOSYMB,KGRAPH SIMO2330 

. / ENDUP 

Subroutine SIMOUT must be compiled (Figure 4) and the execution phase 
relink edited (Figure 6). 



20793 



DECEMBER 1970 



MEMORANDUM TO: 



Users of S/360 Continuous Modeling 
Program (360A-CX-16X) 



SUBJECT: 



APAR f PA- 114 Program # 360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



o Program will not diagnose too many PRTPLT variables if variables 
u appear as print requests (in parenthesis). 



Subroutine INTRAN does not include the print-only requests on PRTPLT 
statements when a test for too many variables is made. Abnormal 
execution may occur from the resulting table overflow. The following 
input to the UPDTE utility (Figure 3 control cards) may be used to 
correct this error. 



. / CHANGE SEQFLD=774, NAME=INTR AN 
1760 IF(KPLOT.EQ.50)GO TO 2470 

KPLOT=KPLOT+l 
. / ENDUP 



INTR1960 
INTR1962 



Subroutine INTRAN must be compiled (FORTRAN H Opt 1) and the 
execution phase relink edited (Figure 6). 

5>^WC 2jd.o )l-7-lJ 



20794 



DECEMBER 1970 



DECEMBER 1970 



MEMORANDUM TO: 



Users of S/360 Continuous Modeling 
Program (360A-CX-16X) 



MEMORANDUM TO: Users of S/360 Continuous Modeling 
Program (360A-CX-16X) 



SUBJECT: 



APAR # PA-117 
Program Name: 

Version 1 



Program # 360A-CX-16X 
S/360 Continuous System 
Modeling Program 
Modification Level 2 



SUBJECT: 



APAR # PA - 189 Program # 360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



Translator may incorrectly flag memory block inputs and not use multiple 
output memory elements to break loops. 



The Translator incorrectly flags INPUT NAME SAME AS OUTPUT NAME 
for memory blocks and may not use multiple outputs from memory blocks 
to break algebraic loops. Incorrect storage assignment is given to 
memory blocks specified without storage. The following input to be UPDTE 
utility (Figure 3 control cards) may be used to correct these program errors. 



/ 



1560 



1580 
1590 



1810 



./ 



CHANGE SEQFLD=774,NAME=DATAST 

KNTMEM(NTMEM)=0 DATA1275 
CHANGE NAME=MMACST,SEQFLD=774 

EQUIVALENCE (LL(1 1), LLMEMS) MMAC 152 

IF(LLMEMS.EQ.l)GO TO 1570/ MMAC1570 

IERR=8 MMAC1572 

CHANGE SEQFLD=774,NAME=STRUST 

DO 1580 KJl=Jl,NTOUT STRUI392 

TINT(NMEM)=TOUT(KJl) STRU1380 

LINT(NMEM)=KJ1 STRU1390 

IF(KNTMEM(NTER).EQ.0)GO TO 1630 STRU1410 

CALL NTOBCD(NMEMRY.XYZ) STRU1415 

IF(LLMEMS.EQ.l)GO TO 1820 STRU1860 

IERR=8 ' STRU1862 

IF(NINT.LT.NMEM)GO TO 2310 STRU2720 

LL(17)=4 STRU2722 

GO TO 2420 STRU2724 

ENDUP 



The CSMP procedure must contain the DD card specified for FORTRAN 
execution diagnostics. 

The CSMP system supplies FT06F001 as the DD name for printer 
output during the execution phase. Normally this is also the FORTRAN 
execution diagnostic unit specified at system generation time. If it is 
not, the appropriate DD card (for example //FT03F001 DD SYSOUT=A) 
must be supplied as an addition to the CSMP procedure. 



Subroutines DATAST, MMACST, and S TRUST must be compiled and the 
TRANSLATOR relink edited . 



W^ 3v0.o ia-7-l| 



20795 



20874 



JANUARY 1971 



MEMORANDUM TO: 



Users of S/360 Continuous Modeling Program 
(360A-CX-16X) 



MEMORANDUM TO: 



Users of S/360 Continuous Modeling 
Program (360A-CX-16X) 



SUBJECT: 



APAR # PA- 042 Program 360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



SUBJECT: 



APAR # PA-046 Program # 360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



The DELAY function may create extrapolated rather than interpolated output 
values. 

The V1M2 system may be modified by the Optional Distribution procedures in the 
CSMP Operator's Manual to correct this program error. The following input to 
the UPDTE utility (Figure 3 control cards) will modify subroutine DELAY. 



. / CHANGE SEQFLD=783, NAME=DELAY 

KX(K-4)=2 

KX(K-2)=N+N+4 
1160 CONTINUE 

C IF I EQUALS THEN WRAP AROUND IS NEEDED 
C COPY LAST POINTS IN TABLE TO FIRST LOCATIONS 
C IN EITHER CASE STORE CURRENT VALUES IN NEXT LOCATIONS 



./ 



IF(I.GT.0)GO TO 1200 
IF(KX(K-4)+2.LE.KX(K-2))GO TO 1200 
KX(K-4)=KX(K-4)+2 
ENDUP 



DELA 120 
DELA 140 
DELA 470 
DELA 474 
DELA 475 
DELA 477 
DELA 478 
DELA 520 
DELA 522 
DELA 582 



Subroutine DELAY must be compiled (Figure 4) and the execution phase relink-edited 
(Figure 6). ; 



WniL JUO.O 12-7-7/ 



Integration method RKS may fail if the difference between TIME and 
TNEXT becomes effectively zero. 



The V1M2 system may be modified by the Optional Distribution procedures 
in the CSMP Operator's Manual to correct this program error. The 
following input to the UPDTE utility (Figure 3 control cards) will modify 
subroutine RKS so that the diagnostic message "VARIABLE STEP DELT 
LESS THAN DELMIN. SIMULATION HALT" will be generated if 
(TIME - TINEXT) is effectively zero. 



. / CHANGE SEOFLD=774,NAME=RKS 

JF(AA.EQ. 0. 0)GO TO 2140 
. / ENDUP 



RKS 555 



Subroutine RKS must be compiled and the execution phase relink edited. 



{y5^C XO.o i -L-l-H 



20902 



20903 



MEMORANDUM TO: 



SUBJECT: 



Users of S/360 Continuous Modeling 
Program (360A-CX- 16X) 



APAR # PA-066 Program # 360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



B MEMORANDUM TO: 



Users of S/360 Continuous Modeling Program 
(360A-CX-16X) 

SUBJECT: APAR # PA-118 Program 360A-CX-16X (Correction) 

Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 

A memory function may improperly break an algebraic loop if it is used 
as part of an expression. 



S/360 CSMP does not recognize the FORTRAN 'GOTO' (without an 
intermediate blank) on macro statements. 



Subroutine RMACST may be modified to add this FORTRAN form to the 
macro generating code. Use the Optional Distribution procedures des- 
cribed in the Operator's Manual to compile RMACST and relink-edit 
the translator. The following modifications are required as input. 



Ph 


./ 


a 


- 







a 


1850 


ID 

s 

£ 




1852 


2010 


2012 


U 


2032 
. / 



CHANGE SEQFLD=774,NAME=RMACST 
DATA GOTO/'GOTO'/ 

IF(CWORD-CBCD(291))1852,2030, 1852 
IF(CWORD-GOTO)2100, 2032, 2100 
IF(CWORD-CBCD(291)) 2012, 2030, 2012 
IF(CWORD-GOTO)2040, 2032,2040 
KIF = 
ENDUP 



RMAC 112 
RMAC2290 
RMAC2292 
RMAC2640 
RMAC2642 
RMAC2730 



The use of a memory function (for example, the CSMP DELAY block) as 
part of an expression or as a subroutine argument expression may 
incorrectly allow the statement output (s) to break algebraic loops 
involving other terms in the expression or other arguments. The follow- 
ing update restricts the loop-breaking to loops involving only the in- 
puts to the memory function and its outputs. It also corrects an error 
in the sort operation that was not allowing the last memory output 
encountered to break a loop that did not involve integration. 

Subroutines STRUST and SEQUST must be updated and recompiled and the 
translator re-link-edited. 



./ CHANGE SEQFLD=774,NAME=STRUST 
1550 IF(IPO.EQ.9)LLMEMS=l 

IF(K8.NE.4)GO TO 1590 
1552 CONTINUE 

IF(K8.NE.4)GO TO 1970 
1720 IF(LLMEMS.EQ.0)GO TO 1726 

IF(IWTYPE.NE.2)GO TO 1726 

IF(INO.EQ.6.AND.KNTPRN.EQ.1)LLMEMS=0 

IF ( INO . NE . 7 . AND . KNTPRN . EQ . ) LLMEMS=0 
1726 IF(INO-12)1730, 1940,2410 
1960 IF(LLPR0.EQ.2)G0 TO 1990 

IF(LLMEMS.EQ.1)G0 TO 1552 
./ CHANGE SEQFLD=774,NAME=SEQUST 
2270 IF(LMEM(J) .E0.0)GO TO 2350 

IF(NSEQ.GT.J2)GO TO 2292 
2292 CONTINUE 

IF(J.GE.NMEM)GO TO 2270 

IF(NSEQ.GT.J2)GO TO 2392 
2392 CONTINUE 
. / ENDUP 



STRU1296 
STRU1298 
STRU1300 
STRU1392 
STRU1740 
STRU1742 
STRU1744 
STRU1746 
STRU1748 
STRU2090 
STRU2092 

SEQU3150 
SEQU3162 
SEQU3202 
SEQU3370 
SEQU3432 
SEQU3472 
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MEMORANDUM TO: 



SUBJECT: 



Users of S/360 Continuous System 
Modeling Program (360A-CX-16X) 

APAR # PA-366 Program #360A-CX-16X 
Program Name: S/360 Continuous System 

Modeling Program 
Version 1 Modification Level 2 



Abstract of Problem : 

An abnormal exit will occur if a "PROCEDURAL" label is used in a 
MACRO definition with more than 25 input and output names. For 
example : 

MACRO Y = BLK (XI, X2 ,...,. . X25) 

PROCEDURAL (blank) 

Comment on Problem : 

Table 22 of the translation module has a capacity of 180 input 
characters. The system code performing the automatic generation 
of a PROCEDURE statement using the MACRO label statement fails 
to test for table overflow and an abnormal exit will result. 
Subroutine RMACST may be modified to perform this test. Use the 
Optional Distribution procedures described in the Operator's 
Manual to compile RMACST and relink-edit the translator. The 
following modifications are required as input: 



./ 


CHANGE ' SEQFLD=774 ,NAME= RMACST 




1926 


IF (LETERS (KEND) .NE.64)GO TO 1928 


RMAC2422 




KEND=KEND-1 


RMAC2424 




GO TO 1926 


RMAC2426 


1928 


KEND=KEND+1 


RMAC2430 


19 36 


IF (LETERS (KEND) .NE.64)GO TO 1938 


RMAC2502 




KEND=KEND-1 


RMAC2504 




GO TO 1938 


RMAC2506 


1938 


KEND=KEND+1 


RMAC2510 




IF (KEND. GT. 180) GO TO 2211 


RMAC2542 


• / 


ENDUP 
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